From cheveron@ymail.com Thu Aug 11 04:45:00 2011
Return-Path: <cheveron@ymail.com>
Received: (qmail 30083 invoked from network); 11 Aug 2011 11:44:56 -0000
Received: from unknown (66.196.94.106)
  by m12.grp.re1.yahoo.com with QMQP; 11 Aug 2011 11:44:56 -0000
Received: from unknown (HELO ng7-ip1.bullet.mail.ne1.yahoo.com) (98.138.215.162)
  by mta2.grp.re1.yahoo.com with SMTP; 11 Aug 2011 11:44:56 -0000
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=yahoogroups.com; s=lima; t=1313063094; bh=//73LSbTYzdhsD/VhbmRid49OvSzzct3PAuolA7dAAg=; h=Received:Received:Received:X-Sender:X-Apparently-To:X-Received:X-Received:X-Received:X-Received:X-Received:Date:To:Message-ID:User-Agent:MIME-Version:Content-Type:Content-Transfer-Encoding:X-Mailer:X-Yahoo-Newman-Property:X-Originating-IP:X-eGroups-Msg-Info:X-Yahoo-Post-IP:From:Subject:X-Yahoo-Group-Post:X-Yahoo-Profile:X-YGroups-SubInfo:Sender:X-eGroups-Approved-By:X-eGroups-Auth; b=ERktlGfJCJ+GnkUJCMWmA+8KkymRwu6+4eVB5US7cg0hJZqJkvaFS5rHQx2d2wTvi5eUZ/syKleXOVQp0SGw0lJn11DNN0D7c1UCssPrr3bmcKsuABrOCFgEk8K/gwoA
Received: from [98.138.217.182] by ng7.bullet.mail.ne1.yahoo.com with NNFMP; 11 Aug 2011 11:44:54 -0000
Received: from [69.147.65.150] by tg7.bullet.mail.ne1.yahoo.com with NNFMP; 11 Aug 2011 11:44:54 -0000
Received: from [98.137.34.155] by t7.bullet.mail.sp1.yahoo.com with NNFMP; 11 Aug 2011 11:44:54 -0000
X-Sender: cheveron@ymail.com
X-Apparently-To: ts2068@yahoogroups.com
X-Received: (qmail 21686 invoked from network); 11 Aug 2011 11:44:48 -0000
X-Received: from unknown (98.137.34.44)
  by crsgroups4-scan.grp.sp2.yahoo.com with QMQP; 11 Aug 2011 11:44:48 -0000
X-Received: from unknown (HELO n38b.bullet.mail.sp1.yahoo.com) (66.163.168.152)
  by mta1.grp.sp2.yahoo.com with SMTP; 11 Aug 2011 11:44:48 -0000
X-Received: from [69.147.65.172] by n38.bullet.mail.sp1.yahoo.com with NNFMP; 11 Aug 2011 11:44:48 -0000
X-Received: from [98.137.35.12] by t14.bullet.mail.sp1.yahoo.com with NNFMP; 11 Aug 2011 11:44:48 -0000
Date: Thu, 11 Aug 2011 11:44:48 -0000
To: ts2068@yahoogroups.com
Message-ID: <j20fbg+vjki@eGroups.com>
User-Agent: eGroups-EW/0.82
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-8859-1"
Content-Transfer-Encoding: quoted-printable
X-Mailer: Yahoo Groups Message Poster
X-Yahoo-Newman-Property: groups-system
X-Originating-IP: 66.163.168.152
X-eGroups-Msg-Info: 1:6:0:0:0
X-Yahoo-Post-IP: 93.96.235.195
From: "cheveron@ymail.com" <cheveron@ymail.com>
Subject: SNA to LROS cartridge converter
X-Yahoo-Group-Post: member; u=385397603; y=6r8UDbkzrzq8F1LfPNk27KopBWixUiWvDTRnexNmvyOEtBLxEeyzYqb0EClt
X-Yahoo-Profile: cheveron@ymail.com
X-eGroups-Approved-By: cheveron@ymail.com <cheveron@ymail.com> via web; 11 Aug 2011 11:44:54 -0000

Let me know if you need any further explanation.

; SNA to LROS cart converter
; (c) 2011 Andrew Owen

; packed file must fit in 16K or less and the .dck header be adjusted to su=
it
; the header should be 00 02 02 00 00 00 00 00 00 for a 16K cart or
; 00 02 00 00 00 00 00 00 00 for an 8K cart

; the data must be packed with Bitbuster Extreme:
; http://www.west.co.tt/matt/speccy/apology/

; the top 16 bytes of RAM must be excluded as they will be used during depa=
cking

; the values for the following labels can be found in the SNA header:

i_reg		equ	$3f
hl1_reg		equ	$2b16
de1_reg		equ	$3ab6
bc1_reg		equ	$8070
af1_reg		equ	$0093
hl_reg		equ	$5ae1
de_reg		equ	$0001
bc_reg		equ	$0117
iy_reg		equ	$5c3a
ix_reg		equ	$255e
;interrupt	; remove final EI if set to disabled
r_reg		equ	$28
af_reg		equ	$0044
sp_reg		equ	61e0h
;im_mode	; edit the im mode line manually
border 		equ 1

org 0

start:
	defb	0		; LROS header
	defb	1
	defw	5
	defb	$fe

	di				; disable interrupts

	ld	a, border	; set border
	out ($fe), a	;

	ld	sp, 0		; set a stack
=09
	ld	hl, data	; source
	ld	de, $4000	; destination

	call	depack

resume:
	ld	hl, prog	; copy prog
	ld	de, 5B00h
	ld	bc, 0005h
	ldir

	im	1		; set the interrupt mode

	ld	a, i_reg	; restore registers
	ld	i, a
	ld	hl, hl1_reg
	ld	de, de1_reg
	ld	bc, af1_reg
	push	bc
	pop	af
	ld	bc, bc1_reg
	exx
	ld	hl, hl_reg
	ld	de, de_reg
	ld	iy, iy_reg
	ld	ix, ix_reg
	ld	a, r_reg
	ld	r, a
	ld	bc, af_reg
	push	bc
	pop	af
	ld	bc, bc_reg
	ld	sp, sp_reg	; return address

	jp	5B00h		; jump to prog in RAM

prog:
	xor	a			; page out ROM
	out	(00F4h), a
	ei
	ret=09

depack:
	ld	a,128
=09
	exx
	ld	de,1
	exx
=09
depack_loop:
	call getbits
	jr	c,output_compressed	;if set, we got lz77 compression
	ldi				;copy byte from compressed data to destination (literal byte)
	jr	depack_loop
=09

;handle compressed data
output_compressed:
	ld	c,(hl)		;get lowest 7 bits of offset, plus offset extension bit
	inc	hl		;to next byte in compressed data

output_match:
	ld	b,0
	bit	7,c
	jr	z,output_match1	;no need to get extra bits if carry not set

	call getbits
	call rlbgetbits
	call rlbgetbits
	call rlbgetbits

	jr	c,output_match1	;since extension mark already makes bit 7 set=20
	res	7,c		;only clear it if the bit should be cleared
output_match1:
	inc	bc
=09
=09
;return a gamma-encoded value
;length returned in HL
	exx			;to second register set!
	ld	h,d
	ld	l,e             ;initial length to 1
	ld	b,e		;bitcount to 1

;determine number of bits used to encode value
get_gamma_value_size:
	exx
	call getbits
	exx
	jr	nc,get_gamma_value_size_end	;if bit not set, bitlength of remaining is =
known
	inc	b				;increase bitcount
	jr	get_gamma_value_size		;repeat...

get_gamma_value_bits:
	exx
	call getbits
	exx
=09
	adc	hl,hl				;insert new bit in HL
get_gamma_value_size_end:
	djnz	get_gamma_value_bits		;repeat if more bits to go

get_gamma_value_end:
	inc	hl		;length was stored as length-2 so correct this
	exx			;back to normal register set
=09
	ret	c
;HL' =3D length

	push	hl		;address compressed data on stack

	exx
	push	hl		;match length on stack
	exx

	ld	h,d
	ld	l,e		;destination address in HL...
	sbc	hl,bc		;calculate source address

	pop	bc		;match length from stack

	ldir			;transfer data

	pop	hl		;address compressed data back from stack

	jr	depack_loop

rlbgetbits
	rl b
getbits
	add	a,a
	ret	nz
	ld	a,(hl)
	inc	hl
	rla
	ret

data:
incbin "data.pck"

defs 2048, $ff	; file should either be $2009 or $4009 bytes with the header=
.


